(defpackage :svg-icons
  (:use :cl)
  (:nicknames :icons)
  (:export
   :home
   :info
   :sig
   :dots
   :mag-glass
   ))

(in-package :svg-icons)

(defmacro home ()
  `(spinneret:with-html
    (:svg
     ;;:xmlns "http://www.w3.org/2000/svg"
     :class "h-5 w-5"
     :fill "none"
     :viewBox "0 0 24 24"
     :stroke "currentColor"
     (:path
      :style "stroke-linecap: round; stroke-linejoin: round; stroke-width: 2"
      :d "M3 12l2-2m0 0l7-7 7 7M5 10v10a1 1 0 001 1h3m10-11l2 2m-2-2v10a1 1 0 01-1 1h-3m-6 0a1 1 0 001-1v-4a1 1 0 011-1h2a1 1 0 011 1v4a1 1 0 001 1m-6 0h6"))))

(defmacro info ()
  `(spinneret:with-html
     (:svg
      ;;:xmlns "http://www.w3.org/2000/svg"
      :class "h-5 w-5"
      :fill "none"
      :viewBox "0 0 24 24"
      :stroke "currentColor"
      (:path
       :style "stroke-linecap: round; stroke-linejoin: round; stroke-width: 2"
       :d "M13 16h-1v-4h-1m1-4h.01M21 12a9 9 0 11-18 0 9 9 0 0118 0z"))))

(defmacro sig ()
  `(spinneret:with-html
    (:svg
     :class "h-5 w-5"
     ;;:xmlns "http://www.w3.org/2000/svg"
     :fill "none"
     :viewBox "0 0 24 24"
     :stroke "currentColor"
     (:path
      :style "stroke-linecap: round; stroke-linejoin: round; stroke-width: 2"
      :d "M9 19v-6a2 2 0 00-2-2H5a2 2 0 00-2 2v6a2 2 0 002 2h2a2 2 0 002-2zm0 0V9a2 2 0 012-2h2a2 2 0 012 2v10m-6 0a2 2 0 002 2h2a2 2 0 002-2m0 0V5a2 2 0 012-2h2a2 2 0 012 2v14a2 2 0 01-2 2h-2a2 2 0 01-2-2z"))))

(defmacro dots ()
  `(spinneret:with-html
    (:svg
     :class "inline-block h-5 w-5 stroke-current"
     ;;:xmlns "http://www.w3.org/2000/svg"
     :fill "none"
     :viewBox "0 0 24 24"
     :stroke "currentColor"
     (:path
      :style "stroke-linecap: round; stroke-linejoin: round; stroke-width: 2"
      :d "M5 12h.01M12 12h.01M19 12h.01M6 12a1 1 0 11-2 0 1 1 0 012 0zm7 0a1 1 0 11-2 0 1 1 0 012 0zm7 0a1 1 0 11-2 0 1 1 0 012 0z"))))

(defmacro mag-glass ()
  `(spinneret:with-html
    (:svg
     :class "h-4 w-4 opacity-70"
     ;;:xmlns "http://www.w3.org/2000/svg"
     :fill "none"
     :viewBox "0 0 16 16"
     :stroke "currentColor"
     (:path
      :style "fill-rule: evenodd; clip-rule: evenodd;"
      :d "M9.965 11.026a5 5 0 1 1 1.06-1.06l2.755 2.754a.75.75 0 1 1-1.06 1.06l-2.755-2.754ZM10.5 7a3.5 3.5 0 1 1-7 0 3.5 3.5 0 0 1 7 0Z"))))
